home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
pcw302_3.arc
/
WORKUTIL.BAT
< prev
Wrap
DOS Batch File
|
1991-02-21
|
5KB
|
156 lines
echo .
getyn Do you use Windows, DesqView, or other program using a PIF file ?
if errorlevel 1 copy ed.pif %t%ed.pif
getyn ε %t%menuprt.exe
if not errorlevel 1 goto ne
getyn Your file MENUPRT.EXE is obsolete; delete it? Press Y if unsure.
if errorlevel 1 del %t%menuprt.exe
:ne
getyn Do you want to copy the 3 printer test files? Press Y if unsure.
if not errorlevel 1 goto pt
copy justify.tst %t%justify.tst
copy chars.tst %t%chars.tst
copy print.tst %t%print.tst
:pt
echo .
getyn Do you want to create the Print Control File? Press Y if unsure.
if not errorlevel 1 goto ms
getyn Do you have a laser printer? Press N if unsure.
if errorlevel 1 goto ls
getyn Do you have an HP DeskJet with soft fonts?
if errorlevel 1 copy deskdown.bat %t%deskdown.bat
menuprt1 %t%pr.def
if errorlevel 1 menuprt2 // %t%pr.def
goto pd
:ls
if %h%==0 goto ph
if not %w%==2 goto ph
echo The PC-Write program, help file, and laser printer files won't fit
getyn on one diskette. Insert your Extra disk in drive %t%, press Y.
if not errorlevel 1 goto ey
:ph
getyn Do you have an HP LaserJet (or compatible) with soft fonts?
if not errorlevel 1 goto hq
copy hpdown.bat %t%hpdown.bat
echo (you may want to get the PC-Write Font Selector Program.)
:hq
getyn Do you have a Quadram QuadLaser with soft fonts ?
if errorlevel 1 copy quaddown.bat %t%quaddown.bat
getyn Do you have any printer using Adobe PostScript?
if not errorlevel 1 goto cm
copy psdown.ini %t%pr.ini
copy psdown.fin %t%pr.fin
:cm
menulaz %t%pr.def
:pd
if %m%==n goto ms
echo .X:10 >> %t%pr.def
echo .XT:6 >> %t%pr.def
echo .XB:6 >> %t%pr.def
rem getyn Do you want the Pound sign "£" to print using code 35 ('#')?
rem if errorlevel 1 echo $156=35 >> %t%pr.def
:ms
echo .
getyn Do you want to use your "mouse" with PC-Write? Press N if unsure.
if not errorlevel 1 goto nm
echo The mouse files will be copied, but consult the User's
echo Guide or Quick Guide for complete setup instructions.
getyn Do you have a Mouse Systems mouse?
if not errorlevel 1 goto m1
copy msysmice.msc %t%msysmice.msc
copy msysmice.com %t%msysmice.com
:m1
getyn Do you have a LogiTech mouse?
if not errorlevel 1 goto m2
copy logimice.def %t%logimice.def
copy logimice.mnu %t%logimice.mnu
:m2
getyn Do you have a Microsoft mouse?
if not errorlevel 1 goto m3
copy micsmice.def %t%micsmice.def
copy micsmice.com %t%micsmice.com
copy micsmice.mnu %t%micsmice.mnu
echo &J:8 >> %t%ed.def
:m3
:nm
if %b%==0 goto un
getyn Insert blank disk for Utility Disk backup in drive %d%, press Y.
if not errorlevel 1 goto un
echo on
copy *.* %d%
echo off
:un
:rc
if exist words.mas goto cr
getyn Do you have a copy of the PC-Write Reference diskette?
if errorlevel 1 goto cu
echo Without a reference diskette, you cannot check spelling,
echo or print (or type )the on-disk Tutorial or Quick Guide.
echo However, you can do normal editing, and basic printing.
goto ey
:cu
getyn Insert PC-Write Reference diskette in default drive, press Y.
if not errorlevel 1 goto ey
goto rc
:cr
echo .
if not %b%==3 goto rn
getyn Insert blank disk for Reference Disk backup in drive %d%, press Y.
if not errorlevel 1 goto rn
echo on
copy *.* %d%
echo off
:rn
echo The master word list is a large (110 KB) file used to check spelling.
echo Your computer must have at least 448 KB to use this master word list.
getyn Do you want this word list? Press Y if unsure.
if not errorlevel 1 goto ns
if not %w%==2 goto bd
echo The PC-Write program and word list file won't fit on
getyn one diskette. Insert your Extra disk in drive %t%, press Y.
if not errorlevel 1 goto ey
:bd
copy words.mas %t%words.mas
:ns
echo .
echo Smaller help files for beginners and advanced users are available.
getyn Do you want either of these two help files? Press N if unsure.
if not errorlevel 1 goto mh
if %h%==0 goto nh
echo You asked for the main help file earlier. If you get a small help
getyn file, this main help won't be available. Is this ok?
if not errorlevel 1 goto mh
:nh
if %w%==2 getyn Insert your Work Disk in drive %t%, press Y.
if not errorlevel 1 goto ey
getyn Press Y to get beginner's help, or N to get advanced help
if errorlevel 1 copy edbegin.hlp %t%ed.hlp
if not errorlevel 1 copy edquick.hlp %t%ed.hlp
:mh
echo After you type and/or print the Tutorial and Quick Guide,
echo remove the PC-Write Reference disk from the default drive.
echo Then place all original and backup diskettes in a safe place.
echo .
if not %w%==0 echo Insert your new Work Disk in the default drive.
echo .
echo PC-Write Work Disk Is Now Ready
echo .
set b=
set d=
set h=
set m=
set t=
set w=
getyn Do you want to type or print the Tutorial and Quick Guide?
if not errorlevel 1 goto ey
echo Note: Press Ctl-C at any time to stop typing or printing.
getyn Do you want to see them on your screen?
if not errorlevel 1 goto ty
typeman
:ty
getyn Do you want to print the Tutorial and Quick Guide?
if not errorlevel 1 goto ey
getyn Is your printer ready, with 95 pages of paper?
printman
:ey